home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue49 / Factory / FMain.dfm / FMain.txt
Encoding:
Text File  |  1999-06-16  |  3.2 KB  |  125 lines
  1. object FormReportSelection: TFormReportSelection
  2.   Left = 342
  3.   Top = 105
  4.   BorderStyle = bsDialog
  5.   Caption = ' Factory demonstration'
  6.   ClientHeight = 214
  7.   ClientWidth = 412
  8.   Color = clBtnFace
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   OldCreateOrder = False
  15.   Position = poScreenCenter
  16.   OnCreate = FormCreate
  17.   PixelsPerInch = 96
  18.   TextHeight = 13
  19.   object pcFactoryDemo: TPageControl
  20.     Left = 4
  21.     Top = 4
  22.     Width = 406
  23.     Height = 206
  24.     ActivePage = tsComponentFactory
  25.     Anchors = [akLeft, akTop, akRight, akBottom]
  26.     TabOrder = 0
  27.     object tsComponentFactory: TTabSheet
  28.       Hint = 'Use the factory to create TComponent descendant'
  29.       Caption = 'Component Factory'
  30.       ParentShowHint = False
  31.       ShowHint = True
  32.       object GroupBox1: TGroupBox
  33.         Left = 4
  34.         Top = 4
  35.         Width = 194
  36.         Height = 169
  37.         Caption = ' Select a report to run '
  38.         TabOrder = 0
  39.         object lbReports: TListBox
  40.           Left = 8
  41.           Top = 16
  42.           Width = 178
  43.           Height = 145
  44.           Anchors = [akLeft, akTop, akRight, akBottom]
  45.           ItemHeight = 13
  46.           TabOrder = 0
  47.           OnDblClick = btnAbsConcreteFactoryClick
  48.         end
  49.       end
  50.       object GroupBox2: TGroupBox
  51.         Left = 204
  52.         Top = 4
  53.         Width = 193
  54.         Height = 169
  55.         Caption = ' How to run the report? '
  56.         TabOrder = 1
  57.         object btnIfThenElse: TButton
  58.           Left = 20
  59.           Top = 20
  60.           Width = 157
  61.           Height = 25
  62.           Hint = 'Procedural code'
  63.           Caption = '&If-Then-Else Statement'
  64.           TabOrder = 0
  65.           OnClick = btnIfThenElseClick
  66.         end
  67.         object btnSimpleFactory: TButton
  68.           Left = 20
  69.           Top = 56
  70.           Width = 157
  71.           Height = 25
  72.           Hint = 'Simple factory'
  73.           Caption = '&Simple Factory'
  74.           TabOrder = 1
  75.           OnClick = btnSimpleFactoryClick
  76.         end
  77.         object btnAbsConcreteFactory: TButton
  78.           Left = 20
  79.           Top = 92
  80.           Width = 157
  81.           Height = 25
  82.           Hint = 'Abstract / concrete factory '
  83.           Caption = '&Abstract / Concrete Factory'
  84.           TabOrder = 2
  85.           OnClick = btnAbsConcreteFactoryClick
  86.         end
  87.       end
  88.     end
  89.     object tsObjectFactory: TTabSheet
  90.       Hint = 'Use the factory to create TObject descendant'
  91.       Caption = 'Object Factory'
  92.       ImageIndex = 1
  93.       ParentShowHint = False
  94.       ShowHint = True
  95.       object GroupBox4: TGroupBox
  96.         Left = 4
  97.         Top = 4
  98.         Width = 185
  99.         Height = 169
  100.         Caption = ' Select an animal object to create '
  101.         TabOrder = 0
  102.         object lbAnimals: TListBox
  103.           Left = 8
  104.           Top = 16
  105.           Width = 169
  106.           Height = 145
  107.           ItemHeight = 13
  108.           TabOrder = 0
  109.           OnDblClick = btnCreateAnimalClick
  110.         end
  111.       end
  112.       object btnCreateAnimal: TButton
  113.         Left = 200
  114.         Top = 24
  115.         Width = 185
  116.         Height = 25
  117.         Hint = 'Abstract / concrete factory with cache'
  118.         Caption = 'Create animal object'
  119.         TabOrder = 1
  120.         OnClick = btnCreateAnimalClick
  121.       end
  122.     end
  123.   end
  124. end
  125.